home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / terminal / autocallterm.lha / AutoCall.term < prev   
Encoding:
Text File  |  1995-03-21  |  2.0 KB  |  117 lines
  1. /* rx
  2.  *
  3.  * @$VER: AutoCall.term V1.0 ( März 1995 ) von Michael Mühlberg
  4.  *
  5.  * --------------------------------------------------------------
  6.  * Michael Mühlberg               eMail: m_muehlberg@rz.uni-sb.de
  7.  * Kalkofenstrasse 12
  8.  *
  9.  * 66125 Dudweiler
  10.  * --------------------------------------------------------------
  11.  */
  12.  
  13.  
  14. /* Lege einige Variablen fest */
  15.  
  16. /* Term-Pfad */
  17.  
  18. terminal = "TERM:term"
  19.  
  20. /* alternative Menüaufrufe */
  21.  
  22. /* wenn kein passender Telefonbucheintrag gefunden wurde */
  23.  
  24. altmenu1 = "Telefonbuch..."
  25.  
  26. /* wenn in der Kommandozeile ein Leerstring übergeben wurde */
  27.  
  28. altmenu2 = "Telefonbuch..."
  29.  
  30. /* Überfrüfe, ob term schon läuft */
  31.  
  32. call TermCheck
  33.  
  34. /* Wir wenden uns an den Port TERM */
  35.  
  36. address TERM
  37.  
  38. /* Lese die Kommandozeile */
  39.  
  40. parse arg pattern
  41.  
  42. /* Hole den Term-Bildschirm nach vorn           */
  43. /* Beim Starten von Term geschieht dies ohnehin */
  44.  
  45. activate
  46.  
  47. /* Überprüfe die Kommandozeile */
  48.  
  49. if pattern ~= "" then
  50. do
  51.     /* o.k.: Ein nichtleerer String wurde übergeben */
  52.  
  53.     entry = '#?'pattern'#?'
  54.     
  55.     /* Loesche die Dialing-Liste ( kann weggelassen werden ) */
  56.     
  57.     clear from dial
  58.     
  59.     /* Füge den ( die ) gewünschten Telefonbucheintrag */
  60.     /* (einträge)  in die Dialingliste ein             */
  61.     
  62.     additem to dial phone entry
  63.     
  64.     if rc ~= 0 then
  65.     do
  66.         /* Es wurde kein passender Eintrag gefunden */
  67.         
  68.         /* Rufe den alternativen Menüpunkt altmenu1 auf */
  69.         
  70.         callmenu altmenu1
  71.     end
  72.     else
  73.     do
  74.         /* o.k.: Eintrag gefunden */
  75.  
  76.         /* Rufe die Telefonnummer(n) ( nacheinander ) an */
  77.  
  78.         dial wait
  79.         
  80.         /* Lösche die eben erstellte Dialing-Liste wieder */
  81.  
  82.         clear from dial
  83.     end
  84. end
  85. else
  86. do
  87.     /* Ein Leerstring wurde übergeben */
  88.     
  89.     /* Rufe den alternativen Menüpunkt altmenu2 auf */
  90.  
  91.     callmenu altmenu2
  92. end
  93.  
  94. /* Überprüfe, ob Term schon läuft, und starte Term ggf. */
  95.  
  96. TermCheck:
  97.  
  98. if ( ~show( 'P', 'TERM' ) ) then
  99. do
  100.     /* term läuft nicht */
  101.     
  102.     /* Starte term */
  103.  
  104.     address command terminal
  105.     
  106.     /* Warte, bis der Port "TERM" eingerichtet ist */
  107.  
  108.     do while ( ~show( 'P', 'TERM' ) )
  109.     
  110.         /* Prüfe einmal pro Sekunde, ob der Port existiert */
  111.         
  112.         address command wait 1
  113.     end
  114. end
  115.  
  116. return
  117.